(Info-build-node-completions): Signal error if tag-table marker is not

found.

diff --git a/lisp/info.el b/lisp/info.el
index 2318f3240dd563a276ad3fe0a51173b2c73cbca8..b2a67265dcacc9a7547527d99b52826a945352d9 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1551,6 +1551,8 @@ PATH-AND-SUFFIXES is a pair of lists, (DIRECTORIES . SUFFIXES)."
            (node-regexp "Node: *\\([^,\n]*\\) *[,\n\t]"))
        (save-excursion
          (save-restriction
+           (or Info-tag-table-marker
+               (error "No Info tags found"))
            (if (marker-buffer Info-tag-table-marker)
                (let ((marker Info-tag-table-marker))
                  (set-buffer (marker-buffer marker))